Column

Scatter Plot showing inspection score by date in Manhattan only

scatter_plot =
  inspection_df %>% 
  filter(boro == "MANHATTAN") %>% 
  plot_ly(x=~inspection_date, y=~score, alpha = .5, type = "scatter"
          , mode = "markers")
scatter_plot
## Warning: `arrange_()` is deprecated as of dplyr 0.7.0.
## Please use `arrange()` instead.
## See vignette('programming') for more help
## This warning is displayed once every 8 hours.
## Call `lifecycle::last_warnings()` to see where this warning was generated.

Column

Bar Chart showing average inspection score by boro

bar_plot = 
  inspection_df %>% 
  group_by(boro) %>% 
  mutate(avg_score = mean(score)) %>% 
  plot_ly(x=~boro, y=~avg_score, color=~boro, type = "bar")
bar_plot

Box Plot showing score by boro

box_plot =
  inspection_df %>% 
  group_by(boro) %>% 
  plot_ly(x=~boro, y=~score, color =~boro, type = "box")
box_plot